home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
vikingw.dir
/
01645_Script_Ships
< prev
next >
Wrap
Text File
|
1995-09-12
|
7KB
|
256 lines
global gbeenclicked, gQuest
on VShipsRollovers
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(10) then
ArrowCursor
repeat while rollover(10)
set the locH of sprite 15 to 496
set the locV of sprite 15 to 299
updatestage
end repeat
set the locH of sprite 15 to 996
updatestage
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 13 to 160
set the locV of sprite 13 to 323
updatestage
end repeat
set the locH of sprite 13 to 960
updatestage
else
if rollover(19) then
ArrowCursor
repeat while rollover(19)
set the locH of sprite 16 to 429
set the locV of sprite 16 to 335
updatestage
end repeat
set the locH of sprite 16 to 999
updatestage
else
if rollover(21) then
VikingCursor
repeat while rollover(21)
puppetsprite 12, true
set the locH of sprite 12 to 422
set the locV of sprite 12 to 155
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
BuildShip
end repeat
end if
end if
end repeat
set the locH of sprite 12 to 922
puppetsprite 12, false
updatestage
else
if rollover(25) then
VikingCursor
repeat while rollover(25)
puppetsprite 17, true
set the locH of sprite 17 to 355
set the locV of sprite 17 to 133
updatestage
if (the mousedown) then
set gbeenclicked = 1
puppetsprite 2, true
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateLoop 2, 327, 5, "SV281900.AIF", 1
end repeat
end if
end if
end repeat
puppetsprite 17, false
set the locH of sprite 17 to 955
updatestage
puppetsprite 2, false
else
if rollover(26) then
VikingCursor
repeat while rollover(26)
puppetsprite 18, true
set the locH of sprite 18 to 434
set the locV of sprite 18 to 143
updatestage
if (the mousedown) then
set gbeenclicked = 1
puppetsprite 2, true
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateLoop 2, 327, 5, "SV281900.AIF", 1
end repeat
end if
end if
end repeat
puppetsprite 18, false
set the locH of sprite 18 to 934
updatestage
puppetsprite 2, false
else
if rollover(27) then
VikingCursor
repeat while rollover(27)
puppetsprite 48, true
set the locH of sprite 48 to 512
set the locV of sprite 48 to 143
updatestage
if (the mousedown) then
set gbeenclicked = 1
puppetsprite 2, true
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateLoop 2, 327, 5, "SV281900.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 48 to 912
updatestage
puppetsprite 48, false
puppetsprite 2, false
else
if rollover(28) then
VikingCursor
repeat while rollover(28)
puppetsprite 20, true
set the locH of sprite 20 to 356
set the locV of sprite 20 to 158
updatestage
if (the mousedown) then
set gbeenclicked = 1
puppetsprite 2, true
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateLoop 2, 327, 5, "SV281900.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 20 to 956
puppetsprite 20, false
updatestage
puppetsprite 2, false
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on BuildShip
ArrowCursor
puppetsound "SV281100.AIF"
set count = 0
Repeat while count < 3 and (the mouseup)
ScrubOn
BoardOn
updatestage
wait .3
ScrubOff
AxOn
DrillOn
updatestage
wait .3
ScrubOn
DrillOff
BoardOff
updatestage
wait .3
ScrubOff
drillon
AxOff
updatestage
wait .3
DrillOff
updatestage
wait .3
set count = count + 1
end repeat
Puppetsound 0
set gbeenclicked = 0
end
on AxOn
puppetsprite 7, true
set the locH of sprite 7 to 179
set the locV of sprite 7 to 324
end
on AxOff
puppetsprite 7, false
set the locH of sprite 7 to -200
end
on ScrubOn
puppetsprite 8, true
set the locH of sprite 8 to 225
set the locV of sprite 8 to 296
end
on ScrubOff
puppetsprite 8, false
set the locH of sprite 8 to -200
end
on BoardOn
puppetsprite 9, true
set the locH of sprite 9 to 307
set the locV of sprite 9 to 284
end
on BoardOff
puppetsprite 9, false
set the locH of sprite 9 to -200
end
on DrillOn
puppetsprite 11, true
set the locH of sprite 11 to 356
set the locV of sprite 11 to 375
end
on DrillOff
puppetsprite 11, false
set the locH of sprite 11 to -200
end